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PURPOSE 

RELOADB is used to load relocatable programs written in the SYM I 
programming language. Input is from paper tapes containing programs 
in relocatable object text. 

This Basic Loader provides a convenient operating environment for 
loading and executing medium sized programs on a Raytheon 703 with 
4K words of core and no system library facilities. 

All programs loaded by this loader are relocated into the upper word 
page in memory. The XRAY EXEC monitor, I/O monitor, and RELOADB 
all reside in the lower word page in memory. Since the loader's entry 
names table (ENT) uses the space remaining in the lower word page, the 
entire upper word page is available for programs to be loaded and data 
areas they may require. 

If more data area is needed, the space in the lower word page occupied 
by the loader can be used; however, if the loader is undisturbed it is 
re- executable and need not be reloaded between jobs. 

Although this loader is designed to accept SYM I assembler output it 
will accept programs which have been written in SYM I but assembled 
on the SYM II assembler. 

There are two restrictions on SYM II assemblies. First, the pseudo-ops 
DFLL, and LABL must not appear. Second, the program must 
have at least one reference to a relocatable address. This reference 
will ensure that the SYM II assembler will output 11 bit addresses for 
external strings rather than 15 bit addresses (RELOADB cannot pro- 
cess 15 bit external strings). 
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USAGE 

All control of the relocating loader is exercised by issuing di- 
rectives to the XRAY monitor which will in turn Call RELOADB. 
There are no instructions given directly to the loader by the 
user. 

Before any of these directives involving the relocating loader 
can be given, RELOADB must be loaded. This is done using 
the "AL" directive (absolute load). 

RELOCATABLE LOADER DIRECTIVES TO XRAY 

Initialize Load 

This directive is used to begin a relocatable loading operation. 
The directive input format is as follows: 

IL 

There are no input arguments for IL. 

The operator places the text to be loaded in the BIN device, 
types the directive IL, and then turns the reader on. The 
loader clears the entry name table, resets the storage map 
and loads the text. As entry names are encountered in loading 
they are placed into the entry names table. Loading ceases 
when an END statement is detected in the text. If sense switch 
is false the loader will load another program from BIN. If 
sense switch is true control will be returned to X-RAY for 
further directives, (see section on TERMINATION OF LOADING) 
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Continued Load 



This directive is used to continue loading relocatable programs 
without destroying the entry names table or programs already 
loaded. 

The directive input format is as follows: 

CL 

There are no input arguments for CL 

The operation and functions of the CL directive are identical 
to those of the IL directive with the exceptions that the entry 
names table is not cleared and the storage map is not reset. 

Entry Names Table Printout (Storage Map) 

This directive is used to print the contents of the entry names 
table which has been generated by the loading of programs. 

The input format is as follows: 

ET 

There are no input arguments for ET. 

Each entry name which has been encountered since the last 
IL directive will be listed along with its location in core. 

Undefined names will be given a location of zero, and flagged 
by an arrow. 

If a name is defined more than once the location value of the 
first encounter will be used to fill all references to that name. 
All subsequent definitions of that name will be printed, with 
their location, but flagged by a D. 

Execute 



This directive is used to execute a program which has been 
loaded into core using RELOADB. 
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The directive input format is as follows: 

T A 

where A is a space 

There are no input arguments for T. 

The loader scans the entry names table (ENT) and prints all 
undefined or multiply defined entries. If there are any unde- 
fined values the loader will print "MS" (meaning missing) and 
halt. 

At this time execution may be forced by setting sense switch 
1 true (up) and depressing the 'RUN 1 button. Setting sense 
switch 1 false and depressing the 'RUN' button will cause 
the loader to return to XRAY. 

If there are no undefined symbols (or if execution has been 
forced as above) the loader will check to see if an execution 
address has been specified. If not, it will type "NX" (meaning 
•no execution address 1 ) and return to XRAY. 

If an execution address has been specified execution of the 
program will begin. The program may be restarted at any 
time by using the XRAY "T'Vdirective. 

TERMINATION OF LOADING 

The loading operation proceeds either automatically or under 
manual control. Each time an END statement is read from the 
text, i. e. at the end of each program module, sense switch 
is examined. If it is true, control will be returned to XRAY, 
from which loading of the next module can be initiated by using 
directive CL. If the switch is false, loading will proceed to the 
next module, and will continue fr.om module to module until 
the switch is set true, or until a record consisting of the 
single character BELL (ASCII 87), the end of file character, 
is read from the paper tape. This character may be manually 
punched at the end of a loadable tape. It must not be preceded 
by a line feed character. When the end-of-file is read, the 
loader will return unconditionally to XRAY, and other directives 
may be typed. 
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Error Messages 

When errors are detected by the loader, one of the following 
error codes will be output: 

Code Error Action to be Taken 



CK 



LC 



Checksum error, or Re-position the tape in front 

non-loader text record, of the record, if desired to 

re-attempt reading it, and 
push the 'RUN' button to con- 
tinue. 



An unrecognized 
loader code has been 
encountered 



No recovery 



MX Program being loaded 
is larger than available 
memory, or insufficient 
memory for the entry 
names table (approxi- 
mately 100 symbols 
can be held in this 
table). 



No recovery 



MS Undefined names in the 

entry names table. 

NX No execution address 
has been specified (no 
main line program has 
been loaded) 



Load missing program using 
the CL directive. 

Load main line using the CL 
directive 



When any of these errors occur the loader will halt to allow 
the operator to turn off the reader before any messages are 
output. When the operator pushes the run button, the loader 
will continue. 
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SUBROUTINE 



TITLE: Relocating Loader 

LABEL: RELOAD 



PURPOSE 

Subroutine RELOAD is called by the loader to perform the function of 
loading one program from the system binary input (BIN) device. 

Loading of more than one program is accomplished if RELOADB makes 
repeated calls to RELOAD. 

CALLING SEQUENCE 



JSX RELOAD 

Dummy 
Error Return 
Normal Return 

The location following the JSX is unused in RELOADB, the basic version 
of the relocatable monitor. 

In the event that an unrecoverable error occurs in trying to load a pro- 
gram RELOADB will return to word 3 of the calling sequence. 

At the completion of a normal load return will be made to word 4 of the 
calling sequence. 

It should be emphasized that RELOAD will load a single subprogram module 
at each call. A sustained loading function is implemented by a series 
of calls. In the event that an end-of-file status is detected on the 
device, RELOAD will make a normal return with a non-zero accumulator. 
For other returns the accumulator is zero. 
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SUBROUTINES USED BY RELOAD 
RELOAD uses the following subroutines: 
ALLOCATE assigns memory for loading 



CHEKSUM 
GETBYTE 

GETNAME 

GETVAL 
GETWORD 
RELOll 
SERCHENT 



STORE 



STORENT 



computes and verifies the checksum of a 
binary record. 

this is the loader's input routine. It keeps 
the input buffers filled and returns one 
sequential byte each time GETBYTE is called. 

gets an 8 character name from the input 
stream and stores it in array NAME. 

gets a single data word from the text stream 

gets a single data word from the text stream 

performs relocation of an 11 bit address 

searches the entry names table for the name 
stored in NAME and returns the value of the 
symbol and sets a pointer, ENTPOINT, to 
the entry if it is in the table. 

stores a program word into memory and 
increments the store position 

stores the contents of NAME and NAME+1 
into the ENT (entry names table) and stores 
the accumulator as its value, thereby creating 
an ENT entry. 



STRING li 



follows and fills, if desired, and 11 bit string 
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LABELED ITEMS 

Certain items used by RELOAD are defined here: 



BASE 
DEF11 
DEF15 
ENTBASE 
ENT LIMIT 

ENTPOINT 

LOWLOC 

NAME 

SMBDEF 



the current value of the relocation base 

an address in 11 bit form 

the 15 bit form of the address in DEF11 

the base of lowest address of the ENT 

one greater than the highest address currently 
occupied by the ENT 

pointer to the first word after the name for 
the ENT entry found by SERCHENT 

the lowest location used by the loader. Supplies 
the upper limit for the ENT 

the first of two locations containing a name. 
Serves as a name accumulator for the ENT 
management routines 

either an SMU or SML instruction, whichever 
is necessary to set the extension register to 
point to the address in DEF15 
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X'7FF 




X'7FD 




RBEG 



S. RLOAD 



INITIALIZE 
MEMMAP 



I 



SET 
RBEG.EXECUTE 




X'7FE' 



RELOAD 



ERROR 



f HALT J 



TRUE 




SET 

"PRINT ALL" 

FLAG 



EXECUTE 




JSX 
[EXADDR] 



r- 
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INITIALIZE 
I-O AND START 
BUFFER 1 




PROC 

■ TEXT 



f LIBN W 




EXTN 




ILOC 



PROCTEXT 




NO 




IDERRl 



YES 



SAVE 

REPEAT COUNT 



(ntryW 



( END )• 




EXT15M- 



NO 



-MSIZEW) 
— MSIZEB ) 



RELW1W 



\S 



80 




90 



-•(block) 




HELB16* 



AO 



I SMB W ( NBLK )m MBLOCR) 




SIZE 



BO 



-MRELB1U 



CO 




-M ABSO 



DO 



Wdfillj 




EO 



DBLOCD 
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HERRM 
"LC" 



LDERR 



WAIT FOR 
LAST BUFFER 



I 



' \ 

CUT RELOAD, A 
ERROR J 
RETURN J 




REPEATER 



( 



RELOU 




REPEATER 



RELO 11 




REPEATER 



RELOCATE 




GETWORD 



I 



I RETURN J 




REPEATER 



RELOCATE 



STORE 




J 



REPEAT 




REPEATER 




DECREMENT 
REPCOUNT 
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SAVE PACE FOR 
THIS STRING 



GET NEXT ADDRESS 
IN STRING 




YES 



CONSTRUCT 15 
BIT ADDRESS 



STORE 
INSTRUCTION 



J RETURN ] 




• 
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SET DEFINED 



(ntryi) •»« 



STORENT 




YES 



SET DOUBLE 
DEFINED 




CETNAME 




YES 




F1LLDEF 



GET END OF 
STRING • 



\ DB \ / DB \ / DB , 

(extis) {a* 8 ) (dfill) (locd) (locr) (locf 







STRING II 



SET DEFINED 
VALUE IN ENT 
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NO 



SAVE OLD END 




GET END OF 
THIS STRING 




GET ENT ENTRY 




YES 



FILLDEF 



TURN OFF 
STRING FILL 



( 



I 



STRING II 



CONNECT OLD 

STRING TO NEW 




PROC1 
TEXTJ 



GET END OF 
THIS STRING 



STRING II 
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GETWORD 



ADD TO 

STORE POINTER 




SAVE 

EXECUTION 

ADDRESS 



( SIZEB I 



SET BYTE PACE 
F1»AC TRUE 




SET BYTE PAGE 
FLAG FALSE 



GETWORD 



ALLOCATE 



SET STORE POINTER 



SET RELOCATION 
BASE 
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ADD UPPER 
HALF 



COMPUTE 
ADDRESS 



COMPUTE 

REMAINING 

STORAGE 



I RETURN J 



YES 





YES 



NO 



1 



HERRM 

'ME' 




DEDUCT 
OVERFLOW 



NO 




COMPUTE 

REMAINING 

STORAGE 



COMPUTE 
ADDRESS 
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3ETBYTE 



POSITION IN LEFT 
BYTE AND SAVE 



GETBYTE 



PACK IN RIGHT 
BYTE 



c 



RETURN 



YES 




RELOCATE 



( RETURN ) 




ADO BASE 



EXTRACT 11 . 
BIT ADDRESS 



I 



PACK OP CODE 



I 



( RETURN J 
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GETWORD 



SAVE IN NAME 



GETWORD 



SAVE IN NAME+1 



GETWORD 



GETWORD 



I 



( RETURN J 




RETURN 



EXCHANGE BUFFER 
POINTERS 




DOIO (READ 
NEXT RECORD) 



INCREMENT 
BYTE POINTER 



LOAD THE BYTE 



I 



I RETURN I 



HERRM 
•CK' 



HALT 



DOIO (REREAD) 
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KTAIT FOR LAST INPUT 
BUFFER TO FINISH 




YES 



SET POINTER 
TO MESSAGE 



n 



MALT, TO ALLOW 
READER SHUT -OFF 



DOIO \ 

(PRINT MESSAGE) > 



STAT 
<(WAIT FOR OUTPUT) } 



I 



PUT)\ 



( RETURN J 
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SET OFF 

UNDEFINED 

FLAG 



INITIALIZE LOOP 




YES 



/ "\ 

M RETURN 1 



MOVE LABEL 
TO PRINT 
BUFFER 



YES 




YES 



CONVERT ADDRESS 
AND MOVE IT TO 
BUFFER 




SET UNDEFINED 
FLAG 



PRINT IT 
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FLAG TEST SUBROUTINE 




SAVE THE 
ACCUMULATOR 



GET OP CODE 
AND COMPUTE 

JUMP 



GET FLAG WORD 




RAYTHEON 
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